home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / TOC.DIR / 00005_Script_setPoemButtons < prev    next >
Text File  |  1995-11-21  |  3KB  |  93 lines
  1. on setPoemButtons
  2.   --- gPoemLists is a list of lists (!) where the first list corresponds
  3.   --- to the first page, the second to the second, a pattern is established
  4.   global gPoemLists
  5. --  set gPoemLists to []
  6. --  set b to [:]
  7.   -- addProp the stuff for page 1
  8.   --  addProp b, 8,pB("P11",8)
  9.   --  addProp b,9, pB("p12",9,1)
  10.   --  addProp b, 10,pB("p13",10,1)
  11.   --  addProp b, 11,pB("p14",11)
  12.   --  addProp b, 12,pB("P15",12)
  13.   --  addProp b, 13,pB("P16",13)
  14.   --  append gPoemLists,b
  15.   --  set b to [:]
  16.   --  -- addProp the stuff for page 2
  17.   --  addProp b, 8,pB("P21",8)
  18.   --  addProp b, 9,pB("P22",9,1)
  19.   --  addProp b, 10,pB("P23",10)
  20.   --  addProp b, 11,pB("P24",11)
  21.   --  addProp b, 12,pB("P25",12)
  22.   --  append gPoemLists,b
  23.   --  set b to [:]
  24.   --  -- addProp the stuff for page 3
  25.   --  addProp b, 8,pB("P31",8)
  26.   --  addProp b, 9,pB("P32",9,1)
  27.   --  addProp b, 10,pB("P33",10,1)
  28.   --  addProp b, 11,pB("P34",11)
  29.   --  addProp b, 12,pB("P35",12)
  30.   --  append gPoemLists,b
  31.   --   set b to [:]
  32.   -- addProp the stuff for page 4
  33.   --  addProp b, 8,pB("P41",8,1)
  34.   --  addProp b, 9,pB("P42",9,1)
  35.   --  addProp b, 10,pB("P43",10)
  36.   --  addProp b, 11,pB("P44",11)
  37.   --  addProp b, 12,pB("P45",12)
  38.   --  addProp b, 13,pB("P46",13)
  39.   --  append gPoemLists,b
  40.   --  set b to [:]
  41.   -- addProp the stuff for page 5
  42.   
  43. --  
  44. --  addProp b, 8,pB("P51",8)
  45. --  addProp b, 9,pB("P52",9)
  46. --  addProp b, 10,pB("P53",10,1)
  47. --  addProp b, 11,pB("P54",11)
  48. --  addProp b, 12,pB("P55",12)
  49. --  addProp b, 13,pB("P56",13)
  50. --  append gPoemLists,b 
  51. --  set b to [:]
  52.   -- addProp the stuff for page 6
  53. --  addProp b, 8,pB("P61",8)
  54. --  addProp b, 9,pB("P62",9)
  55. --  addProp b, 10,pB("P63",10,1)
  56. --  addProp b, 11,pB("P64",11)
  57. --  addProp b, 12,pB("P65",12,1)
  58. --  addProp b, 13,pB("P66",13)
  59. --  append gPoemLists,b
  60. --  set b to [:]
  61.   -- addProp the stuff for page 7
  62. --  addProp b, 8,pB("P71",8)
  63. --  addProp b, 9,pB("P72",9)
  64. --  addProp b, 10,pB("P73",10)
  65. --  addProp b, 11,pB("P74",11)
  66. --  addProp b, 12,pB("P75",12)
  67. --  addProp b, 13,pB("P76",13)
  68. --  append gPoemLists,b
  69. --  set b to [:]
  70.   -- addProp the stuff for page 8
  71. --  addProp b, 8,pB("P81",8)
  72. --  addProp b, 9,pB("P82",9)
  73. --  addProp b, 10,pB("P83",10)
  74. --  addProp b, 11,pB("P84",11)
  75. --  addProp b, 12,pB("P85",12)
  76. --  addProp b, 13,pB("P86",13)
  77. --  append gPoemLists,b
  78. --  set b to [:]
  79.   -- addProp the stuff for page 9
  80. --  addProp b, 8,pB("P91",8,1)
  81. --  addProp b, 9,pB("P92",9)
  82. --  addProp b, 10,pB("P93",10)
  83. --  addProp b, 11,pB("P94",11,1)
  84. --  addProp b, 12,pB("P95",12)
  85. --  addProp b, 13,pB("P96",13,1)
  86. --  append gPoemLists,b
  87. end setPoemButtons
  88.  
  89. on pB labelName,spriteChannel,showPoem
  90.   --just to save space
  91.   return birth(script "spb",labelName, spriteChannel,(showPoem=1))
  92. end pB
  93.